10 REM RESISTOR COLOR CODE
20 REM BOB BADER
30 REM NEW HAMPSHIRE
40 REM 1984
100 POKE53280,2:POKE53281,0:PRINT"[147]":PRINTCHR$(14)
110 PRINT
120 PRINTTAB(9)"[144] [149]  [129] [158]   [156] [151]  "
130 PRINTTAB(9)"[144] [149]  [129] [158]   [156] [151]  "
140 POKE646,7:PRINT
150 PRINT:PRINTTAB(10)"[210]ESISTOR [195]OLOR [195]ODE"
160 PRINT:PRINT:PRINT:PRINT
170 POKE646,2
180 PRINTTAB(18)"BY"
190 PRINT:PRINT:PRINT
200 POKE646,14
210 PRINTTAB(15)"[194]OB [194]ADER"
220 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
230 POKE646,3
240 PRINTTAB(4)"[196]O YOU NEED INSTRUCTIONS ? ([217]/[206])"
250 POKE198,0:WAIT198,1
260 GETA$:IFA$="Y"THENGOSUB50000:GOTO270
265 IFA$<>"N"THENGOSUB60000:GOTO250
270 PRINT"[147]":PRINT:POKE646,3
280 INPUT"1ST [195]OLOR[158]";A$
281 IFLEN(A$)<3THENGOSUB60010:GOTO280
285 POKE646,3
290 PRINT:INPUT"2ND [195]OLOR[158]";B$
291 IFLEN(B$)<3THENGOSUB60010:GOTO290
295 POKE646,3
300 PRINT:INPUT"3RD [195]OLOR[158]";C$
301 IFLEN(C$)<3THENGOSUB60010:GOTO300
302 A=0:B=0:C=0
400 IFA$="BLACK"THENA=0
410 IFA$="BROWN"THENA=1
420 IFA$="RED"THENA=2
430 IFA$="ORANGE"THENA=3
440 IFA$="YELLOW"THENA=4
450 IFA$="GREEN"THENA=5
460 IFA$="BLUE"THENA=6
470 IFA$="VIOLET"THENA=7
480 IFA$="GRAY"THENA=8
490 IFA$="WHITE"THENA=9
500 IFB$="BLACK"THENB=0
510 IFB$="BROWN"THENB=1
520 IFB$="RED"THENB=2
530 IFB$="ORANGE"THENB=3
540 IFB$="YELLOW"THENB=4
550 IFB$="GREEN"THENB=5
560 IFB$="BLUE"THENB=6
570 IFB$="VIOLET"THENB=7
580 IFB$="GRAY"THENB=8
590 IFB$="WHITE"THENB=9
600 IFC$="BLACK"THENC=1
610 IFC$="BROWN"THENC = 10
620 IFC$="RED"THENC = 100
630 IFC$="ORANGE"THENC = 1000
640 IFC$="YELLOW"THENC = 10000
650 IFC$="GREEN"THENC = 100000
660 IFC$="BLUE"THENC = 1000000
670 IFC$="VIOLET"THENC = 10000000
680 IFC$="GRAY"THENC = 100000000
690 IFC$="WHITE"THENC = 1000000000
691 IFA=0THENIFA$<>"BLACK"THENGOSUB8000:GOTO240
692 IFB=0THENIFB$<>"BLACK"THENGOSUB8000:GOTO240
693 IFC=0THENGOSUB8000:GOTO240
700 Z=((A*10)+B)*C
710 Z$=STR$(Z)
720 IFLEN(Z$)=2ORLEN(Z$)=3ORLEN(Z$)=4THENGOTO1000
730 IFLEN(Z$)=5ORLEN(Z$)=6ORLEN(Z$)=7THENGOTO2000
740 IFLEN(Z$)=7ORLEN(Z$)=8ORLEN(Z$)=9ORLEN(Z$)=10THENGOTO3000
1000 PRINT"[147]";:GOSUB5000
1010 POKE646,10
1020 PRINTTAB(16)"[145][145][145]"Z;"[207]HMS"
1100 GOTO6000
2000 PRINT"[147]";:GOSUB5000
2010 POKE646,10
2020 PRINTTAB(14)"[145][145][145]"Z/1000;"[203] [207]HMS
2100 [137]6000
3000 [153]"LOAD";:[141]5000
3010 [151]646,10
3020 [153][163]14)"ONONON"Z[173]10[174]6;"(null) (null)HMS"
3100 [137]6000
5000 [153]:[153][163]9)"STOP VERIFY  FOR SYS   CLR POKE  "
5001 [153][163]9)"STOP VERIFY  FOR SYS   CLR POKE  "
5005 [153]:[153]:[153]:[153]:[153]:[153]:[153]
5010 [153][163]10)"********************"
5020 [153][163]10)"*                  *"
5030 [153][163]10)"*                  *"
5040 [153][163]10)"*                  *"
5060 [153][163]10)"********************"
5070 [142]
6000 [151]646,12
6010 [153]:[153]:[153]:[153]:[153]:[153]:[153]
6020 [153][163]3)"STR$O YOU WANT TO DO ANOTHER ? ((null)/(null))
6030 POKE198,0:WAIT198,1
6040 GETA$:IFA$="N"THEN7000
6050 IFA$<>"Y"THEN6040
6060 GOTO270
7000 PRINT"[147]":POKE646,1:PRINTCHR$(142):GOTO63000
8000 PRINT"[207]NE OR MORE OF THE COLORS YOU ENTERED"
8010 PRINT:PRINT"WAS NOT VALID.  [208]LEASE TRY AGAIN.":PRINT:RETURN
50000 PRINT"[147]";:POKE646,1
50010 PRINT:PRINT
50100 PRINT"[212]HIS PROGRAM WILL GIVE YOU THE
50105 [153]
50110 [153]"RESISTANCE OF A RESISTOR BY INPUTTING
50115 PRINT
50120 PRINT"THE COLORS OF THE RESISTOR.
50200 [153]:[153]:[153]
50250 [153]"(null)AKE SURE (null)(null)(null) TO USE CLRLENATN(null)RIGHT$(null)ATN(null) "
50255 [153]
50260 [153]"LETTERS WHEN INPUTTING THE COLORS"
50270 [153]:[153]"AND REMEMBER TO SPELL THE COLORS OUT."
50300 [153]:[153]:[153]:[153]:[153]
50350 [153][163]10)"SYS(null)RESS LEN TO CONTINUE"
50360 [151]198,0:[146]198,1
50370 [161]A$:[139]A$[178]"C"[167][137]51000
50380 [139]A$[179][177]"C"[167][141]60000:[137]50360
51000 [153]"LOAD":[153]
51010 [153]"(null)HE WAY RIGHT$ REMEMBER THE COLOR CODE"
51020 [153]:[153]"IS WITH THE MNEMONIC:"
51030 [153]:[153]"PEEKATNSTR$","BLACK",0:[153]"VERIFYPEEK(null)(null)(null)","BROWN",1
51040 [153]"(null)(null)(null)","RED",2:[153]"FOR(null)(null)","ORANGE",3:[153]"SYS(null)(null)(null)(null)","YELLOW",4
51050 [153]"CHR$(null)ATN(null)(null)","GREEN",5:[153]"PEEKVALASC(null)(null)VAL","BLUE",6
51055 [153]"CLR(null)RIGHT$(null)(null)VAL(null)(null)(null)(null)","VIOLET",7:[153]"POKECHR$VAL(null)(null)RIGHT$(null)CHR$","GRAY",8
51060 [153]"(null)LEFT$RIGHT$(null)(null)VALSTR$","WHITE",9
52000 [153]:[153]:[153]:[153]:[153]
52010 [153][163]10)"SYS(null)RESS LEN TO CONTINUE"
52020 [151]198,0:[146]198,1
52030 [161]A$:[139]A$[178]"C"[167][142]
52040 [139]A$[179][177]"C"[167][141]60000:[137]52020
60000 [151]53280,[187](1)[172]15:[151]53280,2:[142]
60010 [153]"(null)OU MUST SPELL OUT THE WORD.":[142]
63000 [143]    CONNECT BACK TO L.S.
63002 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN"
63004 [151]198,0:[151]631,13:[151]632,13:[151]198,2:[128]